#!/usr/bin/perl

require "./mailadmin-lib.pl";
&ReadParse();

#&header($text{'index_title'}, "", "index", 0, 1);

$vols = $in{'selvol'};

unless ($vols)
{
    $err_msg = $text{'msg_err_vols_empty'};
    goto ERROR_OUT;
}


&mail_conf_checkout();

&redirect("maildir_edit.cgi");

#&footer("maildir_edit.cgi", $text{"back_lsuser"});

# ERROR_OUT:;
#my (@headp, @footp);
#@headp = ($text{'error'}, "");
#@footp = ("list_domain.cgi", $text{'back_lsdomain'});
#&mail_error(\@headp, \@footp, $text{'err_title_save_create_domain'}, $err_msg);
